BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/Memory Tools.cpt/Memory Tools/stack.txt

Text File | 1989-01-07 | 5KB | 209 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 13
-- first background id: 2630
-- card count: 25
-- first card id: 8721
-- list block id: 21273
-- print block id: 20916
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 92576 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----

on openstack
  hide menubar
  hide msg
  global theMenu,XMenu
  put NewMenu("General","About Memory Tools","Disassembler","XFCN Index", "Static Memory","Dynamic Memory","Cursor Effects","Peek Examples") into theMenu
  put NewMenu("XFCNs/XCMDs","General Comments","(-","TrapName","TrapWord", "TrapAdr","DecToHex","HexToDec","String","DisAsm","PeekByte","PeekWord", "PeekLong","Poke","Chr") into XMenu

end openstack

on domenu theitem
  if theitem is "Disassembler" then
    go card "Disassembler"
    exit domenu
  end if

  if theitem is "About Memory Tools" then
    about
    exit domenu
  end if

  if theItem is "XFCN Index" then
    go card "Index"
    exit domenu
  end if

  if theItem is "Peek Examples" then
    go card "PeekExamples"
    exit domenu
  end if

  if theItem is "DecToHex" then
    go card "DecToHex"
    exit domenu
  end if

  if theItem is "TrapAdr" then
    go card "TrapAdr"
    exit domenu
  end if

  if theItem is "TrapAdr" then
    go card "TrapAdr"
    exit domenu
  end if

  if theItem is "Chr" then
    go card "Chr"
    exit domenu
  end if

  if theItem is "HexToDec" then
    go card "HexToDec"
    exit domenu
  end if

  if theItem is "Cursor Effects" then
    go card "Cursor"
    exit domenu
  end if

  if theItem is "DisAsm" then
    go card "DisAsm"
    exit domenu
  end if

  if theItem is "TrapWord" then
    go card "TrapWord"
    exit domenu
  end if

  if theItem is "String" then
    go card "String"
    exit domenu
  end if

  if theItem is "TrapName" then
    go card "TrapName"
    exit domenu
  end if

  if theItem is "General Comments" then
    go card "General"
    exit domenu
  end if

  if theItem is "PeekByte" then
    go card "PeekByte"
    exit domenu
  end if

  if theItem is "PeekWord" then
    go card "PeekWord"
    exit domenu
  end if

  if theItem is "PeekLong" then
    go card "PeekLong"
    exit domenu
  end if

  if theItem is "Poke" then
    go card "Poke"
    exit domenu
  end if

  if theItem is "Static Memory" then
    go card "Static"
    exit domenu
  end if

  if theItem is "Dynamic Memory" then
    go card "Dynamic"
    exit domenu
  end if

  pass domenu

end domenu


on arrowkey
end arrowkey

on closestack
  global theMenu,XMenu
  put DeleteMenu(theMenu) into theMenu
  put DeleteMenu(XMenu) into XMenu

end closestack

on About
  push card
  visual effect dissolve
  go card "about"
  wait until the mouseclick
  visual effect dissolve
  pop card
end about